{-# LANGUAGE QuasiQuotes, TypeSynonymInstances,TypeFamilies, GeneralizedNewtypeDeriving, TemplateHaskell, GADTs #-}
module Model where

import Prelude
import Yesod
import Data.Text (Text)
import Database.Persist.Quasi

import Text.Blaze
import Text.Blaze.Renderer.String

instance Eq Html where
  (==) a b = renderHtml a == renderHtml b

instance Show Html where
  show = renderHtml

instance Read Html where
  readsPrec i s = map (\(a,b) -> (string a,b)) $ readsPrec i s
   

-- You can define all of your database entities in the entities file.
-- You can find more information on persistent and how to declare entities
-- at:
-- http://www.yesodweb.com/book/persistent/
share [mkPersist sqlSettings, mkMigrate "migrateAll"] $(persistFile "config/models")
